home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / lang8.dll / POST / 1148 < prev    next >
Text File  |  1996-10-03  |  3KB  |  101 lines
  1. userdict begin /ropedict 85 dict def end 
  2. ropedict begin   
  3. /blocksetup
  4. { q translate rotate scale n } def 
  5. /blockend
  6. { closepath fill } def
  7. /blockfinish
  8. { closepath fill Q } def
  9. /movetoproc { 
  10. dup /sby xdf 
  11. /spy xdf        
  12. dup /sbx xdf 
  13. /spx xdf        
  14. sbx sby m
  15. } def
  16. /1stlinetoproc 
  17. { /esy xdf  /esx xdf 
  18. blockdata  
  19. /totdist totdist dist add def
  20. /sbx esx def  /sby esy def
  21. deltax 0 ne deltay 0 ne and
  22. { /prevtotdeltax deltax def  /prevtotdeltay deltay def } if
  23. } def
  24. /2ndlinetoproc 
  25. { /esy xdf  /esx xdf  
  26. bdflag false eq
  27. {blockdata esx spx eq esy spy eq and{lastsegdist}if}if
  28. offset ldelta add dist le
  29. { 
  30. deltax 0 eq deltay 0 eq and
  31. {/ang 0 def}{/ang deltay deltax atan def}ifelse
  32. offset 0 lt
  33. {/prevang prevdeltax 0 eq prevdeltay 0 eq and
  34. {0}{prevdeltay neg prevdeltax neg atan}ifelse def
  35. ang prevang sub abs dup 120 le exch 240 ge or
  36. {/offset 0 def bdflag true eq
  37. { 
  38. lastsegdist
  39. }if
  40. }if
  41. }if
  42. offset ldelta dist
  43. {/curdelta xdf  
  44. /ldeltax ang cos curdelta ldelta 2 div add mul def
  45. /ldeltay ang sin curdelta ldelta 2 div add mul def
  46. bll2 blw ang sbx ldeltax add sby ldeltay add drawblock
  47. /offset curdelta ldelta add dist sub def
  48. ldelta offset abs .001 add gt {exit} if
  49. }for
  50. /prevdeltax deltax def  /prevdeltay deltay def
  51. /deltax 0 def  /deltay 0 def
  52. /sbx esx def  /sby esy def
  53. }if
  54. }def
  55. /1stcloseproc  
  56. { spx spy 1stlinetoproc
  57. }def
  58. /2ndcloseproc  
  59. {sbx spx ne sby spy ne or{
  60. /esx spx def  /esy spy def blockdata  /bdflag true def lastsegdist
  61. spx spy 2ndlinetoproc}if
  62. }def
  63. /blockdata 
  64. { /deltay esy sby sub def  
  65. /deltax esx sbx sub def
  66. /dist deltay dup mul deltax dup mul add sqrt def
  67. }def
  68. /lastsegdist  
  69. {/dist dist offset sub ldelta div round ldelta mul offset add def
  70. }def
  71. end   
  72. /newrope  
  73. {
  74. supdict begin  
  75. ropedict begin   
  76. /color xdf
  77. colorchoice
  78. /spacing xdf
  79. /blw xdf 
  80. /bll xdf 
  81. /drawblock xdf
  82. q {flattenpath}fp
  83. /totdist 0 def   /totdeltax 0 def  /totdeltay 0 def
  84. {movetoproc} {1stlinetoproc} {} {1stcloseproc} pathforall
  85. /nm totdist bll spacing add div def
  86. /nm2 nm floor def  
  87. nm2 0 ne
  88. {
  89. /fr nm nm2 sub def  
  90. /nm2 fr 0.5 ge {nm2 1 add} {nm2} ifelse def
  91. /bll2 fr 0.5 ge {fr 1.0 sub} {fr} ifelse
  92. bll spacing add mul nm2 div bll add spacing add def
  93. /ldelta bll2 def 
  94. /bll2 bll2 bll bll spacing add div mul def
  95. /offset 0 def  /totdeltax 0 def  /totdeltay 0 def  /cnt 0 def
  96. /prevtotdeltax 0 def  /prevtotdeltay 0 def  /bdflag false def
  97. {movetoproc} {2ndlinetoproc} {} {2ndcloseproc} pathforall
  98. } if
  99. Q n end end  
  100. } def